home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_ghostscript.idb / usr / freeware / lib / ghostscript / 3.33 / wftopfa.ps.z / wftopfa.ps
Encoding:
Text File  |  1998-05-21  |  8.5 KB  |  299 lines
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility to
  7. % anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU Ghostscript General Public License for full details.
  10. % 
  11.  
  12. % wftopfa.ps
  13. % Convert a Wadalab base font to .PFA (or .PFB) format.
  14.  
  15. (gs_ksb_e.ps) run
  16. (wrfont.ps) run
  17.  
  18. /wftopfa_dict 100 dict def
  19. wftopfa_dict begin
  20.  
  21. /KanjiSubEncoding dup .findencoding def
  22.  
  23. % Initialize parameters.
  24. /init            % - init -
  25.  { /chars 256 dict def
  26.    /version (001.001) def
  27.    /highcode 0 def
  28.    /StdHW [32] def
  29.    /StdVW [32] def
  30.    /UniqueID 20000000 def
  31.    /FontBase (Wadalab) def
  32.    /StdEncMode false def
  33.    /CustomEncMode false def
  34.    /Binary false def
  35.    /Encrypt true def
  36.  } bind def
  37.  
  38. % Read definitions.
  39. /rdstring 5000 string def
  40. /readdefs        % <filename> readdefs -
  41.  { (r) file
  42.     { dup rdstring readline not { pop exit } if
  43.       dup length 15 ge
  44.        { dup dup length 7 sub 7 getinterval (> CompD) eq
  45.       { token pop exch token pop exch pop
  46.         dup 0 get /highcode exch def
  47.         exch chars 3 1 roll put
  48.       }
  49.       { pop
  50.       }
  51.      ifelse
  52.        }
  53.        { pop
  54.        }
  55.       ifelse
  56.     }
  57.    loop closefile
  58.  } bind def
  59.  
  60. % Write out the final font.
  61. /writepfa
  62.  { 4 string highcode 16#1000 add 16 2 index cvrs 0 (.r) putinterval
  63.      FontBase exch concatstrings /fullname exch def
  64.    UniqueID 20000000 eq { /UniqueID 4990000 highcode add def } if
  65.    /encoding CustomEncMode
  66.     { KanjiSubEncoding }
  67.     { StdEncMode { StandardEncoding } { ISOLatin1Encoding } ifelse }
  68.    ifelse def
  69.  
  70.    /Font 30 dict def
  71.    Font begin
  72.    /FontInfo 20 dict def
  73.    FontInfo begin
  74.  
  75.         % Write the clear text part.
  76.  
  77.    /CreationDate (%Calendar%) currentdevparams
  78.      dup /Weekday get {(Sun )(Mon )(Tue )(Wed )(Thu )(Fri )(Sat )} exch get
  79.      1 index /Month get 1 sub
  80.        {(Jan)(Feb)(Mar)(Apr)(May)(Jun)(Jul)(Aug)(Sep)(Oct)(Nov)(Dec)} exch get
  81.      concatstrings
  82.       {{/Day ( )} {/Hour ( )} {/Minute (:)} {/Second (:)} {/Year ( )}}
  83.       { dup 1 get 3 -1 roll exch concatstrings exch
  84.         0 get 2 index exch get
  85.         dup 10 lt { =string cvs (0) exch concatstrings } { =string cvs } ifelse
  86.         concatstrings
  87.       }
  88.      forall exch pop readonly def
  89.    /VMusage 100000 def
  90.    /version version readonly def
  91.    /Notice (No copyright on this font. Original available from moe.ipl.t.u-tokyo.ac.jp:/Font. Converted by wftopfa.ps (Aladdin Enterprises).) readonly def
  92.    /FullName fullname readonly def
  93.    /FamilyName FontBase readonly def
  94.    /Weight (Regular) readonly def
  95.    /ItalicAngle 0 def
  96.    /isFixedPitch true def
  97.    /UnderlinePosition 0 def
  98.    /UnderlineThickness 0 def
  99.  
  100.    end            % FontInfo
  101.  
  102.    /FontName fullname cvn def
  103.    /Encoding encoding def
  104.    /PaintType 0 def
  105.    /FontType 1 def
  106.    /FontMatrix [.001 0 0 .001 0 -0.16] readonly def
  107.    /UniqueID UniqueID def
  108.    /FontBBox [0 0 1000 1000] readonly def
  109.  
  110.    /Private 20 dict def
  111.    Private begin
  112.  
  113.    /-| {string currentfile exch readstring pop} readonly def
  114.    /|- {readonly def} readonly def
  115.    /| {readonly put} readonly def
  116.    /BlueValues [] readonly def
  117.    /OtherBlues [] readonly def
  118.    /MinFeature {16 16} readonly def
  119.    /StdHW StdHW def
  120.    /StdVW StdVW def
  121.    /ForceBold false def
  122.    /password 5839 def
  123.    /UniqueID UniqueID def
  124.    /OtherSubrs [] readonly def
  125.    /Subrs [
  126.      (\020\2771p|\020\024\020=-\223D\\\342R) readonly
  127.      (\020\2771py\274\366Uz) readonly
  128.      (\020\2771py\275\304\236i) readonly
  129.      (\020\2771p\371) readonly
  130.      (\020\2771p~\266+6\034\3446z) readonly
  131.    ] readonly def
  132.  
  133.    end            % Private
  134.  
  135.    /CharStrings 256 dict def
  136.    chars
  137.     { exch =string cvs
  138.       dup 0 get highcode eq
  139.        { 1 get encoding exch get exch CharStrings 3 1 roll put }
  140.        { pop pop }
  141.       ifelse
  142.     }
  143.    forall
  144.  
  145.    end            % Font
  146.  
  147.    Font /FontName get Font definefont setfont
  148.    (%stdout) (w) file writefont
  149.  } bind def
  150.  
  151. % Scan the command line and process files.
  152. /options mark
  153.   /version { 2 copy get /version exch def 1 add } bind
  154.   /StdHW { 2 copy get cvx exec /StdHW exch def 1 add } bind
  155.   /StdVW { 2 copy get cvx exec /StdVW exch def 1 add } bind
  156.   /UniqueId { 2 copy get cvi /UniqueID exch def 1 add } bind
  157.   /UniqueID 1 index
  158.   /FontBase { 2 copy get /FontBase exch def 1 add } bind
  159.   /StdEnc { /StdEncMode true def } bind
  160.   /CustomEnc { /CustomEncMode true def } bind
  161.   /Binary { /Binary true def } bind
  162.   /noEncrypt { /Encrypt false def } bind
  163. .dicttomark def
  164. /wftopfa        % [(arg1) ...] wftopfa -
  165.  { init dup 0
  166.     { dup 2 index length ge { exit } if
  167.       2 copy get exch 1 add exch
  168.       options 1 index .knownget { exch pop exec } { readdefs } ifelse
  169.     }
  170.    loop pop pop
  171.    wrfont_dict /binary_CharStrings Binary put
  172.    wrfont_dict /eexec_encrypt Encrypt put
  173.    wrfont_dict /name_all_Encodings CustomEncMode put
  174.    writepfa
  175.  } bind def
  176.  
  177. end                % wftopfa_dict
  178.  
  179. /wftopfa
  180.  { mark exch wftopfa_dict begin /saved save def { wftopfa } exec false%stopped
  181.     { cleartomark true } { cleartomark false } ifelse
  182.    saved end restore { stop } if
  183.  } bind def
  184.  
  185. [ shellarguments
  186.  { ] wftopfa }
  187.  { pop }
  188. ifelse
  189.  
  190. % ---------------- Root font ---------------- %
  191.  
  192. % Define the Encoding for the root font.
  193. /wfrootencoding
  194. % \x00-\x3F
  195.   0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
  196.   0  0  0  0  0  0  0  0  0  0  0  0  0  0  0  0
  197.   0  1  2  3  4  5  6  7  8  0  0  0  0  0  0  0
  198.   9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
  199. % \x40-\x7F
  200.  25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
  201.  41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
  202.  57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
  203.  73 74 75 76 77  0  0  0  0  0  0  0  0  0  0  0
  204. % \x80-\xFF
  205. 128 copy
  206. 256 packedarray def
  207.  
  208. % Define the template for the root font dictionary.
  209. /wfrootfontdict mark
  210.   /FontType 0
  211.   /FontMatrix [1 0 0 1 0 0]
  212.   /FMapType 2
  213.   /Encoding wfrootencoding
  214. .dicttomark def
  215.  
  216. % Define a dummy (placeholder) Type 1 font for the FDepVector.
  217. /type1dummyfont        % <fontname> type1dummyfont <font>
  218.  { mark /FontName 3 -1 roll
  219.    /FontType 1
  220.    /FontMatrix [.001 0 0 .001 0 0]
  221.    /FontBBox [0 0 1000 1000]
  222.    /Encoding /KanjiSubEncoding findencoding
  223.    /CharStrings 0 dict
  224.    /Private mark /BlueValues [] /password 5839 .dicttomark
  225.    .dicttomark dup /FontName get exch definefont
  226.  } bind def
  227.  
  228. % Write a root font.  Again, wrfont.ps does most of the work.
  229. /makerootfont        % <rootname> makerootfont <font>
  230.  { wfrootfontdict dup length 4 add    % FontName, FDepVector, PrefEnc, FID
  231.    dict copy begin
  232.    cvlit /FontName exch def
  233.    4 dict begin
  234.    /len FontName length def
  235.    /str len 4 add string def
  236.    FontName str cvs pop
  237.    str len (.r) putinterval
  238.    /FDepVector [ 16#21 1 16#74
  239.     { dup wfrootencoding exch get 0 eq
  240.        { pop
  241.        }
  242.        { 16 str len 2 add 2 getinterval cvrs pop
  243.          str cvn type1dummyfont
  244.        }
  245.       ifelse
  246.     }
  247.    for end counttomark -1 roll dup counttomark 2 roll
  248.    ] def
  249.    FontName currentdict end definefont
  250.  } bind def
  251. /writerootfont        % <rootname> writerootfont -
  252.  { save exch makerootfont setfont (%stdout) (w) file writefont restore
  253.  } bind def
  254.  
  255. % ---------------- Converting entire fonts ---------------- %
  256.  
  257. % Define the directory where the Wadalab fonts are stored.
  258. /wfdir (/home/ghost/kanji/w) def
  259.  
  260. % Convert an entire Wadalab font.
  261. /writeentirefont    % <fontname> <template*> writeentirefont -
  262.  { 2 dict begin
  263.    /templates exch def
  264.    /fontname exch def
  265.    [ templates
  266.       { wfdir (/) concatstrings exch concatstrings { copystring }
  267.     100 string filenameforall
  268.       }
  269.      forall
  270.      wfdir (/wadalab-sym/*.ps) concatstrings { copystring }
  271.        100 string filenameforall
  272.    ]
  273.    (%!\n) print
  274.     { /currentuserparams where
  275.        { pop currentuserparams /VMReclaim get -2 vmreclaim { vmreclaim } }
  276.        { { } }
  277.       ifelse
  278.     } == (exec\n) print
  279.    (/KanjiSubEncoding ) print /KanjiSubEncoding findencoding ==
  280.      (readonly def\n) print
  281.     { (%stderr) (w) file dup 2 index write== flushfile
  282.        mark exch (CustomEnc) (Binary) (noEncrypt)
  283.        (FontBase) fontname counttomark -1 roll ] wftopfa
  284.     }
  285.    forall
  286.    fontname cvn writerootfont
  287.    (exec\n) print
  288.    end
  289.  } def            % don't bind, so we can print the procedure
  290.  
  291. % Convert the Wadalab JIS 1&2 SaiMincho font.
  292. % To invoke this from the command line,
  293. %    gs -dNODISPLAY -q wftopfa.ps -c writeSaiMincho0 flush quit >wmin0.ps
  294. % To make the resulting font loadable on demand, add to the Fontmap file:
  295. %    /Wadalab-SaiMincho (wmin0.ps) ;
  296. /writeSaiMincho0
  297.  { (Wadalab-SaiMincho) [ (wadalab-mincho-0-8/*.ps) ] writeentirefont
  298.  } bind def
  299.